home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / interface_85_BuildMatPaletteDisplaySprite behave.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  712 b   |  40 lines
  1. property mySprite, lastFloor
  2.  
  3. on beginSprite me
  4.   mySprite = me.spriteNum
  5. end
  6.  
  7. on findPaletteDisplaySprite me
  8.   return mySprite
  9. end
  10.  
  11. on doSecondFloor me
  12.   set the member of sprite mySprite to member("PrefPanal SecondFloor")
  13. end
  14.  
  15. on doFirstFloor me
  16.   set the member of sprite mySprite to member("PrefPanal FirstFloor")
  17. end
  18.  
  19. on exitFrame me
  20.   global gConMan
  21.   curFloor = getCurFloor(gConMan)
  22.   if curFloor = lastFloor then
  23.     exit
  24.   end if
  25.   lastFloor = curFloor
  26.   case curFloor of
  27.     1:
  28.       doFirstFloor(me)
  29.     2:
  30.       doSecondFloor(me)
  31.     otherwise:
  32.       hide(me)
  33.       sendAllSprites(#bringResourceButtonsForward)
  34.   end case
  35. end
  36.  
  37. on hide me
  38.   set the loc of sprite mySprite to point(-10000, -10000)
  39. end
  40.